home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Transportation / InventorLabs - Transportation.iso / mac / Builders / media / netacess / hminet.dir / 00021_Script_21 < prev    next >
Text File  |  1997-04-04  |  2KB  |  64 lines
  1.  
  2.  
  3. on exitFrame
  4.   
  5.   global WebBrowser
  6.   
  7.   put the text of cast "myName" into myScreenName
  8.   put the text of cast "myPassword" into myPassword
  9.   
  10.   set URL to the text of cast "theURL"  
  11.   
  12.   if the machineType = 256 then
  13.     WebBrowser(mOpenURL, URL, myScreenName, myPassword)
  14.     
  15.   else
  16.     --
  17.     -- Mac Browser AOL Launch sequence
  18.     --
  19.     
  20.     put 0 into userCancel
  21.     put 0 into softCancel
  22.     
  23.     --
  24.     -- verify that AOL is being used
  25.     --
  26.     -- each of the AOLxxxx XFNC methods returns an OSErr
  27.     -- if you get noErr (0), then it's the equivalent of boolean true
  28.     -- for instance:  AOLChosen = 0 means AOL is the chosen browser
  29.     
  30.     put Browser( "AOLChosen" ) into myStatusErr
  31.     if myStatusErr = 0 then
  32.       
  33.       -- AOL has been chosen
  34.       --
  35.       
  36.       --
  37.       -- Check to see if AOL is online
  38.       --
  39.       if Browser( "AOLOnline" ) <> 0 then
  40.         
  41.         -- the user has not already logged on
  42.         
  43.         put "AOL is not Online" into cast "status" 
  44.         
  45.         
  46.         -- so they are registered and not online, connect for them
  47.         put Browser( "AOLSignon", myScreenName, myPassword ) into myError
  48.         
  49.         if myError <> 0 then
  50.           
  51.           -- an error occured, so display an error message
  52.           Browser( "DisplayError", myError )
  53.         end if
  54.       end if
  55.       
  56.     else 
  57.       -- we shouldn't be here
  58.       go to "Start"
  59.       
  60.     end if
  61.   end if
  62.   
  63. end
  64.